home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Narrator.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  1KB  |  72 lines
  1. Unit Narrator;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tnarrator_rb = Record
  8.           message: tIOStdReq;
  9.           rate: Integer;
  10.           pitch: Integer;
  11.           mode: Integer;
  12.           sex: Integer;
  13.           ch_masks: pShortInt;
  14.           nm_masks: Integer;
  15.           volume: Integer;
  16.           sampfreq: Integer;
  17.           mouths: ShortInt;
  18.           chanmask: ShortInt;
  19.           numchan: ShortInt;
  20.           pad: ShortInt;
  21.         End;
  22.  
  23.   tmouth_rb = Record
  24.           voice: tnarrator_rb;
  25.           width: ShortInt;
  26.           height: ShortInt;
  27.           shape: ShortInt;
  28.           pad: ShortInt;
  29.         End;
  30.  
  31.  
  32.  
  33. Const
  34.   MAXPITCH = $140;
  35.   DEFRATE = $96;
  36.   DEFFREQ = $56B8;
  37.   ND_NoMem = $FFFFFFFE;
  38.   ND_CantAlloc = $FFFFFFFA;
  39.   ND_ModeErr = $FFFFFFE8;
  40.   FEMALE = $1;
  41.   MINRATE = $28;
  42.   ND_RateErr = $FFFFFFEB;
  43.   MAXRATE = $190;
  44.   MINFREQ = $1388;
  45.   ND_FreqErr = $FFFFFFE7;
  46.   MAXFREQ = $6D60;
  47.   ND_PitchErr = $FFFFFFEA;
  48.   ND_PhonErr = $FFFFFFEC;
  49.   ND_SexErr = $FFFFFFE9;
  50.   ND_VolErr = $FFFFFFE6;
  51.   ROBOTICF0 = $1;
  52.   DEFSEX = $0;
  53.   ND_NoWrite = $FFFFFFF8;
  54.   DEFVOL = $40;
  55.   ND_UnitErr = $FFFFFFFB;
  56.   NATURALF0 = $0;
  57.   ND_Unimpl = $FFFFFFF9;
  58.   ND_Expunged = $FFFFFFF7;
  59.   MINVOL = $0;
  60.   MAXVOL = $40;
  61.   ND_MakeBad = $FFFFFFFC;
  62.   DEFPITCH = $6E;
  63.   ND_NoAudLib = $FFFFFFFD;
  64.   MALE = $0;
  65.   DEFMODE = $0;
  66.   MINPITCH = $41;
  67.  
  68.  
  69.  
  70.  
  71. End.
  72.